home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 44 / PC Actual CD 44.iso / Linux / Cygwin / full.exe / Disk1 / data1.cab / Tools / share / tix4.1 / DefSchm.tcl < prev    next >
Encoding:
Text File  |  1998-12-04  |  2.6 KB  |  87 lines
  1. # DefSchm.tcl --
  2. #
  3. #    Implements the default color and font schemes for Tix.
  4. #
  5. # Copyright (c) 1996, Expert Interface Technologies
  6. #
  7. # See the file "license.terms" for information on usage and redistribution
  8. # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  9. #
  10.  
  11. proc tixSetDefaultFontset {} {
  12.     global tixOption
  13.  
  14.     set tixOption(font)         -Adobe-Helvetica-Medium-R-Normal--*-120-*
  15.     set tixOption(bold_font)    -Adobe-Helvetica-Bold-R-Normal--*-120-*
  16.     set tixOption(menu_font)    -Adobe-Helvetica-Bold-R-Normal--*-120-*
  17.     set tixOption(italic_font)  -Adobe-Helvetica-Bold-O-Normal--*-120-*
  18.     set tixOption(fixed_font)   -*-courier-medium-r-*-*-14-*-*-*-*-*-*-*
  19. }
  20.  
  21. proc tixSetDefaultScheme-Color {} {
  22.     global tixOption
  23.  
  24.     set tixOption(bg)           #d9d9d9
  25.     set tixOption(fg)           black
  26.  
  27.     set tixOption(dark1_bg)     #c3c3c3
  28.     set tixOption(dark1_fg)     black
  29.     set tixOption(dark2_bg)     #a3a3a3
  30.     set tixOption(dark2_fg)     black
  31.     set tixOption(inactive_bg)  #a3a3a3
  32.     set tixOption(inactive_fg)  black
  33.  
  34.     set tixOption(light1_bg)    #ececec
  35.     set tixOption(light1_fg)    white
  36.     set tixOption(light2_bg)    #fcfcfc
  37.     set tixOption(light2_fg)    white
  38.  
  39.     set tixOption(active_bg)    $tixOption(dark1_bg)
  40.     set tixOption(active_fg)    $tixOption(fg)
  41.     set tixOption(disabled_fg)  gray55
  42.  
  43.     set tixOption(input1_bg)    #d9d9d9
  44.     set tixOption(input2_bg)    #d9d9d9
  45.     set tixOption(output1_bg)   $tixOption(dark1_bg)
  46.     set tixOption(output2_bg)   $tixOption(bg)
  47.  
  48.     set tixOption(select_fg)    black
  49.     set tixOption(select_bg)    #c3c3c3
  50.  
  51.     set tixOption(selector)    #b03060
  52. }
  53.  
  54. proc tixSetDefaultScheme-Mono {} {
  55.  
  56.     global tixOption
  57.  
  58.     set tixOption(bg)           lightgray
  59.     set tixOption(fg)           black
  60.  
  61.     set tixOption(dark1_bg)     gray70
  62.     set tixOption(dark1_fg)     black
  63.     set tixOption(dark2_bg)     gray60
  64.     set tixOption(dark2_fg)     white
  65.     set tixOption(inactive_bg)  lightgray
  66.     set tixOption(inactive_fg)  black
  67.  
  68.     set tixOption(light1_bg)    gray90
  69.     set tixOption(light1_fg)    white
  70.     set tixOption(light2_bg)    gray95
  71.     set tixOption(light2_fg)    white
  72.  
  73.     set tixOption(active_bg)    gray90
  74.     set tixOption(active_fg)    $tixOption(fg)
  75.     set tixOption(disabled_fg)  gray55
  76.  
  77.     set tixOption(input1_bg)    $tixOption(light1_bg)
  78.     set tixOption(input2_bg)    $tixOption(light1_bg)
  79.     set tixOption(output1_bg)   $tixOption(light1_bg)
  80.     set tixOption(output2_bg)   $tixOption(light1_bg)
  81.  
  82.     set tixOption(select_fg)    white
  83.     set tixOption(select_bg)    black
  84.  
  85.     set tixOption(selector)    black
  86. }
  87.